perm filename ZLT3.DAT[SCR,LCS] blob
sn#203389 filedate 1976-02-25 generic text, type T, neo UTF8
RCDFLG←-1;
< ZLT3 .DAT -- RANDOM NUMBER= 1
PLAY;
TOOT 0.000 0.200 C/2 2000.000 F1 F3
;PRINT(P1);< TOOT 1
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.600 9.000 0.550 10.000 0.500
11.000 0.450 12.000 0.400 13.000 0.350 14.000 0.300 999.000
;PRINT(P1);< FUNC 1
TOOT 0.200 0.200 CS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 2
TOOT 0.400 0.200 DS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 3
TOOT 0.600 0.200 F/2 2000.000 F1 F3
;PRINT(P1);< TOOT 4
TOOT 0.800 0.200 G/2 2000.000 F1 F3
;PRINT(P1);< TOOT 5
TOOT 1.000 0.200 A/2 2000.000 F1 F3
;PRINT(P1);< TOOT 6
TOOT 1.200 0.200 B/2 2000.000 F1 F3
;PRINT(P1);< TOOT 7
TOOT 1.400 0.200 CS 2000.000 F1 F3
;PRINT(P1);< TOOT 8
TOOT 1.600 0.200 DS 2000.000 F1 F3
;PRINT(P1);< TOOT 9
TOOT 1.800 0.200 F 2000.000 F1 F3
;PRINT(P1);< TOOT 10
TOOT 2.000 0.200 G 2000.000 F1 F3
;PRINT(P1);< TOOT 11
TOOT 2.200 0.200 A 2000.000 F1 F3
;PRINT(P1);< TOOT 12
TOOT 2.400 0.200 B 2000.000 F1 F3
;PRINT(P1);< TOOT 13
TOOT 2.600 0.200 CS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 14
TOOT 2.800 0.200 DS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 15
TOOT 3.000 0.200 F*2 2000.000 F1 F3
;PRINT(P1);< TOOT 16
TOOT 3.200 0.200 G*2 2000.000 F1 F3
;PRINT(P1);< TOOT 17
TOOT 3.400 0.200 A*2 2000.000 F1 F3
;PRINT(P1);< TOOT 18
TOOT 3.600 0.200 B*2 2000.000 F1 F3
;PRINT(P1);< TOOT 19
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.600 9.000 0.550 10.000 0.375
11.000 0.225 12.000 0.100 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 19
TOOT 3.800 0.200 CS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 20
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.600 9.000 0.412 10.000 0.250
11.000 0.112 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 20
TOOT 4.000 0.200 DS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 21
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.450 9.000 0.275 10.000 0.125
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 21
TOOT 4.200 0.200 F*4 2000.000 F1 F3
;PRINT(P1);< TOOT 22
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.488 8.000 0.300 9.000 0.137 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 22
TOOT 4.400 0.200 G*4 2000.000 F1 F3
;PRINT(P1);< TOOT 23
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.525 7.000 0.325 8.000 0.150 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 23
TOOT 4.600 0.200 A*4 2000.000 F1 F3
;PRINT(P1);< TOOT 24
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.563
6.000 0.350 7.000 0.162 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 24
TOOT 4.800 0.200 B*4 2000.000 F1 F3
;PRINT(P1);< TOOT 25
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.600 5.000 0.375
6.000 0.175 7.000 0.000 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 25
TOOT 5.000 0.200 CS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 26
SYNTH(F3);1 1 2 0.900 3.000 0.638 4.000 0.400 5.000 0.188
6.000 0.000 7.000 0.000 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 26
TOOT 5.200 0.200 DS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 27
TOOT 5.400 0.200 F*8 2000.000 F1 F3
;PRINT(P1);< TOOT 28
SYNTH(F3);1 1 2 0.675 3.000 0.425 4.000 0.200 5.000 0.000
6.000 0.000 7.000 0.000 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 28
TOOT 5.600 0.200 G*8 2000.000 F1 F3
;PRINT(P1);< TOOT 29
TOOT 5.800 0.200 A*8 2000.000 F1 F3
;PRINT(P1);< TOOT 30
SYNTH(F3);1 1 2 0.450 3.000 0.213 4.000 0.000 5.000 0.000
6.000 0.000 7.000 0.000 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 30
TOOT 6.000 0.200 B*8 2000.000 F1 F3
;PRINT(P1);< TOOT 31
TOOT 6.200 0.200 A*8 2000.000 F1 F3
;PRINT(P1);< TOOT 32
TOOT 6.400 0.200 G*8 2000.000 F1 F3
;PRINT(P1);< TOOT 33
SYNTH(F3);1 1 2 0.675 3.000 0.425 4.000 0.200 5.000 0.000
6.000 0.000 7.000 0.000 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 33
TOOT 6.600 0.200 F*8 2000.000 F1 F3
;PRINT(P1);< TOOT 34
TOOT 6.800 0.200 DS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 35
SYNTH(F3);1 1 2 0.900 3.000 0.638 4.000 0.400 5.000 0.188
6.000 0.000 7.000 0.000 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 35
TOOT 7.000 0.200 CS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 36
TOOT 7.200 0.200 B*4 2000.000 F1 F3
;PRINT(P1);< TOOT 37
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.600 5.000 0.375
6.000 0.175 7.000 0.000 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 37
TOOT 7.400 0.200 A*4 2000.000 F1 F3
;PRINT(P1);< TOOT 38
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.563
6.000 0.350 7.000 0.162 8.000 0.000 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 38
TOOT 7.600 0.200 G*4 2000.000 F1 F3
;PRINT(P1);< TOOT 39
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.525 7.000 0.325 8.000 0.150 9.000 0.000 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 39
TOOT 7.800 0.200 F*4 2000.000 F1 F3
;PRINT(P1);< TOOT 40
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.488 8.000 0.300 9.000 0.137 10.000 0.000
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 40
TOOT 8.000 0.200 DS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 41
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.450 9.000 0.275 10.000 0.125
11.000 0.000 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 41
TOOT 8.200 0.200 CS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 42
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.600 9.000 0.412 10.000 0.250
11.000 0.112 12.000 0.000 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 42
TOOT 8.400 0.200 B*2 2000.000 F1 F3
;PRINT(P1);< TOOT 43
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.600 9.000 0.550 10.000 0.375
11.000 0.225 12.000 0.100 13.000 0.000 14.000 0.000 999.000
;PRINT(P1);< FUNC 43
TOOT 8.600 0.200 A*2 2000.000 F1 F3
;PRINT(P1);< TOOT 44
TOOT 8.800 0.200 G*2 2000.000 F1 F3
;PRINT(P1);< TOOT 45
TOOT 9.000 0.200 F*2 2000.000 F1 F3
;PRINT(P1);< TOOT 46
TOOT 9.200 0.200 DS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 47
TOOT 9.400 0.200 CS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 48
TOOT 9.600 0.200 B 2000.000 F1 F3
;PRINT(P1);< TOOT 49
TOOT 9.800 0.200 A 2000.000 F1 F3
;PRINT(P1);< TOOT 50
TOOT 10.000 0.200 G 2000.000 F1 F3
;PRINT(P1);< TOOT 51
TOOT 10.200 0.200 F 2000.000 F1 F3
;PRINT(P1);< TOOT 52
TOOT 10.400 0.200 DS 2000.000 F1 F3
;PRINT(P1);< TOOT 53
TOOT 10.600 0.200 CS 2000.000 F1 F3
;PRINT(P1);< TOOT 54
TOOT 10.800 0.200 B/2 2000.000 F1 F3
;PRINT(P1);< TOOT 55
TOOT 11.000 0.200 A/2 2000.000 F1 F3
;PRINT(P1);< TOOT 56
TOOT 11.200 0.200 G/2 2000.000 F1 F3
;PRINT(P1);< TOOT 57
TOOT 11.400 0.200 F/2 2000.000 F1 F3
;PRINT(P1);< TOOT 58
TOOT 11.600 0.200 DS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 59
TOOT 11.800 0.200 CS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 60
FINISH; < ZLT3 .DAT